Wayzata World Factbook 1996/The World Factbook - 1996 Edition - Wayzata Technology (3079) (1996).iso/pc/mac/largerte.xt/stack.txt

Text File | 1996-02-09 | 5KB | 193 lines

-- stack: in.xt
-- format: 10 (HyperCard 2)
-- flags: 0x1000 (none)
-- protect password hash: 0
-- maximum user level: 5 (scripting)
-- window: Rect(x1=208, y1=204, x2=816, y2=564)
-- screen: Rect(x1=0, y1=0, x2=1024, y2=768)
-- card dimensions: w=608 h=360
-- scroll: x=0 y=0
-- background count: 1
-- first background id: 2624
-- card count: 1
-- first card id: 3045
-- list block id: 2195
-- print block id: 7990
-- font table block id: 3511
-- style table block id: 3139
-- free block count: 3
-- free size: 15040 bytes
-- total size: 24576 bytes
-- stack block size: 4608 bytes
-- created by hypercard version: 0x02308000
-- compacted by hypercard version: 0x02308000
-- modified by hypercard version: 0x02208000
-- opened by hypercard version: 0x02308000
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x8000000008000000
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0x8888222288882222
-- patterns[4]: 0x88AA22AA88AA22AA
-- patterns[5]: 0xCCAA33AACCAA33AA
-- patterns[6]: 0xEEAABBAAEEAABBAA
-- patterns[7]: 0xEEBBBBEEEEBBBBEE
-- patterns[8]: 0xFFBBFFEEFFBBFFEE
-- patterns[9]: 0xFFBBFFFFFFBBFFFF
-- patterns[10]: 0x8010022001084004
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0x1122448811224488
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xB130031BD8C00C8D
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0x8822552288225522
-- patterns[18]: 0x8855225588552255
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0x8000000000000000
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0x038448300C020101
-- patterns[23]: 0x8244394482010101
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0x8080413E080814E3
-- patterns[26]: 0x22048C7422179810
-- patterns[27]: 0xBE808808EB088880
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0xA29C41BE2AC914EB
-- patterns[30]: 0x40A00000040A0000
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0xAA00800088008000
-- patterns[33]: 0xFF80808080808080
-- patterns[34]: 0x081C22C180010204
-- patterns[35]: 0xFF808080FF080808
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF7FBE5DA2418000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0xDB2FB537
----- HyperTalk script -----
on openStack
  --  enable menuItem "Copy Text" of menu "Edit"
  pass openStack
end openStack

-- on openCard
-- if bg field tText is empty then
-- -- answer "EMPTY FIELD"
-- WTIgoback
-- end if
-- pass openCard
-- end openCard

on idle
  if bg field tText is empty then
    -- answer "EMPTY FIELD"
    WTIgoback
  end if
  if the selection is empty then
    disable menuItem "Copy Text" of menu "Edit"
    put the number of lines in the voices into x
    if x > 0 then
      disable menuItem "Read Selected Text" of menu "Reader"
    end if
  else
    enable menuItem "Copy Text" of menu "Edit"
    put the number of lines in the voices into x
    if x > 0 then
      enable menuItem "Read Selected Text" of menu "Reader"
    end if
  end if
  pass idle
end idle

on doMenu menuItem
  global mainLoc
  global speakName
  global lastImage

  if menuItem is "Go Back" then
    WTIgoback
  else if menuItem is "Help" then
    WTIhelp
    exit doMenu
  else if menuItem is "Main" then
    WTImain
    exit doMenu
  else if menuItem is "Multimedia" then
    WTImmedia
    exit doMenu
  else if menuItem is "Outline Search" then
    WTIoutline
    exit doMenu
  else if menuItem is "Word Search" then
    go to card 2 of mainLoc
    exit doMenu
  else if menuItem is "Credits" then
    WTIcredits
    exit doMenu
  else if menuItem is "Geographic Search" then
    WTIgeosearch
    exit doMenu
  else if menuItem is "About Hypercard..." then
    WTIcredits
    exit doMenu
  else if menuItem is "Choose…" then
    chooseVoice
    exit doMenu
  else if menuItem is "Selected Text" then
    readSelText
    exit doMenu
  else if menuItem is "Search Here…" then
    ask "Enter text to search here:"
    if the result is "Cancel" then
      -- the user clicked the Cancel button
    else if it is empty then
      -- the user clicked OK with no answer
    else
      find it
      if the result is "Not Found" then
        answer "Text Not Found:" && it
      end if

    end if

    exit doMenu
  else if menuItem is "Speak Name" then
    put not speakName into speakName
    set checkMark of menuItem "Speak Name" of menu "Options " to speakName
    exit doMenu
  else if menuItem is "Print Image" then
    if lastImage is not empty then
      PICTPrint lastImage
    end if

    exit doMenu
  else if menuItem is "Print Text" then
    set lockErrorDialogs to true
    send mouseUp to bg button "Print Text"
    set lockErrorDialogs to false
    exit doMenu
  else if menuItem is "Read Text" then
    stop speech
    if the number of bg fields >= 1 then
      set lockErrorDialogs to true
      put bg field 1 into x
      set lockErrorDialogs to false
      speak x with voice voiceChoice
    end if
    exit doMenu
  else if menuItem is "Copy Image" then
    if lastImage is not empty then
      PICTtoScrap lastImage
    end if
    exit doMenu
  else if menuItem is "Quit World Factbook" then
    doMenu "Quit HyperCard"
    exit doMenu
  end if

  pass doMenu

end doMenu